home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Programming / AmigaE / Src / Gfx / TextureMapping / screenmodereq_db.e < prev    next >
Encoding:
Text File  |  1997-03-09  |  944 b   |  35 lines
  1. -> asl screenmode module for db
  2.  
  3. OPT OSVERSION=38, MODULE
  4. OPT EXPORT
  5.  
  6. MODULE 'asl', 'libraries/asl', 'intuition/screens', 'tools/scrbuffer'
  7.  
  8. PROC openreqscreen(xs,ys,depth,title) HANDLE
  9.   DEF fr:PTR TO screenmoderequester,scr:PTR TO screen
  10.   IF (aslbase:=OpenLibrary('asl.library',37))=NIL THEN Raise("ASL")
  11.   IF (fr:=AllocAslRequest(ASL_SCREENMODEREQUEST,NIL))=NIL THEN Raise("REQ")
  12.   IF AslRequest(fr, NIL)
  13.     IF (scr:=sb_OpenScreen(
  14.       [SA_WIDTH,      xs,
  15.        SA_HEIGHT,     ys,
  16.        SA_DEPTH,      depth,
  17.        SA_TYPE,       CUSTOMSCREEN,
  18.        SA_QUIET,      TRUE,
  19.        SA_OVERSCAN,   OSCAN_TEXT,
  20.        SA_AUTOSCROLL, TRUE,
  21.        SA_DISPLAYID,  fr.displayid,
  22.        SA_TITLE,      title,
  23.        NIL],0))=NIL THEN Raise("SCR")
  24.     RETURN scr
  25.   ENDIF
  26. EXCEPT DO
  27.   IF fr THEN FreeAslRequest(fr)
  28.   IF aslbase THEN CloseLibrary(aslbase)
  29.   ReThrow()
  30. ENDPROC NIL
  31.  
  32. PROC closereqscreen(scr)
  33.   IF scr THEN sb_CloseScreen(scr)
  34. ENDPROC
  35.